home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / pipedream / Documents / Custom / CF_sheets / c_RefBook < prev   
Encoding:
Text File  |  1991-10-09  |  725 b   |  28 lines
  1. %OP%LP*
  2. %OP%TM4
  3. %OP%BM4
  4. %OP%LM5
  5. %OP%FX
  6. %OP%FY
  7. %OP%FS
  8. %OP%WC2,1238,1012,1364,0,0,0,0
  9. %OP%VS3.81 Test (Oct  8 1991), Colton Software - Development, R0123 4567 8901 2345
  10. %CO:A,67,0%%V%%L%function("fact","arg_1")
  11. %V%%L%result(if(@arg_1=1,1,@arg_1*fact(@arg_1-1)))
  12.  
  13.  
  14. %V%%L%function("find_space","str:text")
  15. %V%%L%for("i",1,length(@str),1)
  16. %V%%L%    if(mid(@str,i,1)=char(32),break,0)
  17. %V%%L%next
  18. %V%%L%result(i)
  19.  
  20.  
  21. %V%%L%function("strip_spaces","str:text")
  22. %V%%L%set_name("stringout",@str)
  23. %V%%L%while(code(stringout)=32)
  24. %V%%L%    set_name("stringout",right(stringout,length(stringout)-1))
  25. %V%%L%    if(length(stringout)<1,break,)
  26. %V%%L%endwhile
  27. %V%%L%result(stringout)
  28. %CO:B,21,60%%CO:C,12,48%%CO:D,12,36%%CO:E,12,24%%CO:F,12,12%